<%
set web_rs=server.CreateObject("adodb.recordset")
web_rs.Open "select * from web_news where class='网站新闻' order by id desc ",conn,1,1
web_rs.pagesize=15
dim Page
Page =1
if request("Page") <> "" then
Page=cint(request("Page"))
end if
if not web_rs.eof and not web_rs.bof then
web_rs.absolutepage=Page
end if
count=web_rs.pagesize
%>
<%if web_rs.bof then%>
<%else%>
<%do while not web_rs.eof and count > 0%>
<%
set web_rs=server.CreateObject("adodb.recordset")
web_rs.Open "select * from web_news where class='网站新闻' order by id desc",conn,1,1
do while not web_rs.eof
%>